home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / ISBIT.f < prev    next >
Text File  |  1992-07-31  |  610b  |  22 lines
  1.       SUBROUTINE ISBIT(N,I) 
  2. *-----------------------------------------------------------------------
  3. *   
  4. *   Sets the bit I ( 0 < I < 26)  in word N , rightmost = 1 .   
  5. *   Bits can be tested with ITBIT.  
  6. *   
  7. *-----------------------------------------------------------------------
  8.       DIMENSION NP(26)  
  9.       SAVE IFIRST
  10.       DATA IFIRST/0/
  11.       IF(IFIRST.EQ.0)  THEN 
  12.          IFIRST=1   
  13.          NP(1)=1
  14.          DO 10 J=2,26   
  15.             NP(J)=2*NP(J-1) 
  16.    10    CONTINUE   
  17.       ENDIF 
  18.       IF(I.GT.0.AND.I.LE.25)  THEN  
  19.          IF (ITBIT(N,I).EQ.0) N=N+NP(I) 
  20.       ENDIF 
  21.       END   
  22.